home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00074_Empty glasses button.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.1 KB  |  61 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   if inMixingMode() then
  9.     setCursor(pSpr, pointingHand())
  10.   else
  11.     setCursor(pSpr, noGood())
  12.   end if
  13. end
  14.  
  15. on endSprite
  16.   setCursor(pSpr, defaultCursor())
  17. end
  18.  
  19. on mouseUp
  20.   pSpr.member = pOrigMember
  21.   if not inBonusMode() then
  22.     emptyGlasses()
  23.   end if
  24. end
  25.  
  26. on mouseDown me
  27.   global gRememberIngredient
  28.   replaceDraggingAnything()
  29.   gRememberIngredient = VOID
  30.   if inBonusMode() then
  31.     alertBeep()
  32.     exit
  33.   end if
  34.   pSpr.member = pDownMember
  35.   clickSound()
  36.   updateStage()
  37.   pSupressRoll = 1
  38. end
  39.  
  40. on mouseEnter me
  41.   rememberActiveBottle()
  42.   pSpr.member = pRollMember
  43.   showToolTip(pSpr, #empty)
  44.   pTimer = nowTicks()
  45. end
  46.  
  47. on mouseLeave me
  48.   pSupressRoll = 0
  49.   restoreActiveBottle()
  50.   pSpr.member = pOrigMember
  51.   hideToolTip()
  52. end
  53.  
  54. on mouseWithin
  55.   if tipTickRange(pTimer) and not pSupressRoll then
  56.     forceToolTip(pSpr, #empty)
  57.   else
  58.     dismissToolTip()
  59.   end if
  60. end
  61.